home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / rev.lst < prev    next >
File List  |  1991-01-29  |  2KB  |  41 lines
  1.                                      REV
  2.  
  3. 80000: 02D9D ! Program
  4. 80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
  5. 8000A: 18FB2 ; Check arguments for type
  6. 8000F: 0400D ; <3h>
  7. 80014: 02D9D ! Program
  8. 80019: 03188 ; Internal DUP
  9. 8001E: 05636 ; Internal SIZE (1:String) -> System Binary
  10. 80023: 055DF ; ""
  11. 80028: 032C2 ; Internal OVER
  12. 8002D: 03E6F ; Internal multiply by 2 (1:System Binary)
  13. 80032: 61C1C ; allocate nibbles (2:sized object,1:System Binary)
  14. 80037: 03223 ; Internal SWAP
  15. 8003C: 02DCC ! Code
  16. 80041: 00049 ! 73 nibbles (next RPL at 8008A)
  17. 80046: 8F14660    GOSBVL 06641          ; MC: pop TOS (System Binary) into A.A
  18. 8004D: 8FB9760    GOSBVL 0679B          ; MC: save D0,D1,B,D (uses C,D0), clear carry
  19. 80054: CC         A=A-1  A              ; set-up loop, etc (size-1)
  20. 80056: 4C2        GOC    80083          ; exit if null string
  21. 80059: 147        C=DAT1 A              ; D1: ptr to new str data
  22. 8005C: 134        D0=C                  ; ...
  23. 8005F: 169        D0=D0+ 10             ; ...
  24. 80062: 174        D1=D1+ 5              ; D0: ptr to last char of orig str data
  25. 80065: 147        C=DAT1 A              ; ...
  26. 80068: C2         C=C+A  A              ; ...
  27. 8006A: C2         C=C+A  A              ; ...
  28. 8006C: 135        D1=C                  ; ...
  29. 8006F: 179        D1=D1+ 10             ; ...
  30. 80072: 14F        C=DAT1 B              ; get character from orig string
  31. 80075: 14C        DAT0=C B              ; put character to new string
  32. 80078: 161        D0=D0+ 2              ; next character
  33. 8007B: 1C1        D1=D1- 2              ; ...
  34. 8007E: CC         A=A-1  A              ; ...
  35. 80080: 51F        GONC   80072          ; go if more
  36. 80083: 8D34150    GOVLNG 05143          ; MC: restore D,B,D1,D0 (C=D0), clear carry and continue RPL
  37.  . . . . . . ! End of Code
  38. 8008A: 60F9B ; drop level two object
  39. 8008F: 0312B ! End Marker
  40. 80094: 0312B ! End Marker
  41.